'************************************************************************************************************************
'Description:
'
'This example opens UFT One and configures its Active Screen options to minimum level.
'************************************************************************************************************************

Dim qtApp 'As QuickTest.Application ' Declare the Application object variable
Dim qtActiveScreenOpt 'As QuickTest.ActiveScreenOptions ' Declare the Active Screen Options object variable
Dim qtWebActiveScreen 'As QuickTest.WebActiveScreen ' Declare the Web Active Screen object variable

' Set object variables and open UFT One
Set qtApp = CreateObject("QuickTest.Application") ' Create the Application object
qtApp.Launch ' Start UFT One
qtApp.Visible = True ' Make the UFT One application visible
Set qtActiveScreenOpt = qtApp.Options.ActiveScreen ' Return the Active Screen Options object

If qtActiveScreenOpt.CaptureLevel <> "None" Then ' If the current capture level is not "None"

    ' Configure the Active Screen general options (not applicable for all environments)
    qtActiveScreenOpt.CaptureLevel = "Minimum" ' Capture properties only for recorded object

    ' Configure the Active Screen options related to Web
    Set qtWebActiveScreen = qtActiveScreenOpt.Web ' Return the Web Active Screen object
    qtWebActiveScreen.ActiveScripts = "Disabled" ' Prevent running scripts when loading a page in Active Screen
    qtWebActiveScreen.CaptureOriginalHTMLSource = True ' Capture the original HTML source of Web pages before any scripts have run
    qtWebActiveScreen.LoadActiveXControls = False ' Do not load ActiveX controls in the Active Screen pane
    qtWebActiveScreen.LoadImages = False ' Do not load images in the Active Screen pane
    qtWebActiveScreen.LoadJavaApplets = False ' Do not load Java Applets in the Active Screen pane
    qtWebActiveScreen.LoadingTimeout = 20 ' Set 20 seconds as the maximum time for the Active Screen to load a page
    Set qtWebActiveScreen = Nothing ' Release the Web Active Screen object

End If

Set qtActiveScreenOpt = Nothing ' Release the Active Screen Options object
Set qtApp = Nothing ' Release the Application object